FindName = -276ResourceList = 336is_Code = 116 move.l $4,a6 ;get ExecBase lea ResourceList(a6),a0 ;Pointer to Resource- ;List in ExecBase lea ResName,a1 ;Pointer to Name jsr FindName(a6) ;search for Resource tst.l d0 ;found ? beq Error ;no, Error move.l d0,a1 ;ResourceBase to A1 lea Program,a0 ;Pointer to Interrupt ;Program move.l a0,is_Code(a1) ;enter Pointer to ResourceError: rts ;Return Jump ResName: dc.b "ciab.resource",0 ;Resource-Name align.w ;bring following Commands ;to even Addresses;The Interrupt program, which is called by the ;routines of the CIAB resource and performs the ;Synchronization, starts here.Program: move.l 34(a1),d0 ;Drive registered beq pr1 ;no, End move.l d0,a1 ;Reply-Msg. to A1 movem.l 78(a1),a5/a1 ;get Jump for Interrupt move.w #$8400,$dff09e ;switch on Word sync move.w #$4489,$dff07e ;pass Sync-Word jmp (a5) ;start DMA pr1: rts ;Return Jump END
